fix build with OsPath build flag

diff --git a/Command/P2PHttp.hs b/Command/P2PHttp.hs
index 910b0151c58cd83591ed7e25405f356be8e1539f..140b2d4c94dda44f628ccfffe121a25bc44d09b9 100644 (file)
--- a/Command/P2PHttp.hs
+++ b/Command/P2PHttp.hs
@@ -302,7 +302,7 @@ findRepos o = do
                        -- cycles and in case there is an unexpected
                        -- symlink to some other directory we are not
                        -- supposed to serve.
-                       ifM (isSymbolicLink <$> R.getSymbolicLinkStatus f)
+                       ifM (isSymbolicLink <$> R.getSymbolicLinkStatus (fromOsPath f))
                                ( return []
                                -- Ignore any errors getting the contents of a
                                -- subdirectory.